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ABSTRACT 


This document is part of a series describing the IMS Version 2 
¥ 
Computer Programs for FYCSP. An overview of the FYCSP system functions 


is documented in TN 5-70-01 by Ralph Hanson and Jerry Bailey. 


‘The primary modification in CS-1-WLSR1 which distinguishes it 


from its predecessor, CS1-WLS (TN 5-70-39), is the use of classes 
rather than groups as the basic elements in summarizing the Weekly 


Log data. 
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COMMUNICATION SKILLS 1, WEEKLY LOG SUMMARY, REVISION 1 (CS=1-WLSR1) 


1,0 - PROGRAM IDENTIFICATION 
CS-1-WLSR1 


2.0 - OBJECTIVE j 
CS-1-WLSR1 summarizes by unit, class, teacher, school, district 
and overall, the data contained in the Weekly Log file. 


3.0 - PROGRAM DESCRIPTION 
3.1 - Program Narrative 
3.1.01 - Overview 


The input file contains Weekly Log records for 
all ten units of FYCSP, sequenced by class identi- 
fication number, date, and group number. 


The program processes each Weekly Log in a loop 

which is incremented by week day (e.g., Monday = 
& 1, Tuesday = 2, ...... Friday = 5). Because 

classes may be divided into groups, instances of 

more than one weekly log per class per week, are 

to be expected. At the end of each week, group 

values are averaged to obtain the summary for 

the class. This averaging is done immediately 

at the end of each week for routines described 

in 3.1.06 through 3.1.10 whereas for the routines 

described in 3.1.11 through 3.1.14 the values to 

be averaged are saved and averaged only after all 

the records for that class have been read. In 

both cases the weekly averages are accumulated to 

obtain class totals. Upon encountering a new class 

all summary data for the preceding class is processed 

and printed. Additional summaries containing 

average values for teacher, school, district and 

overall are maintained and printed. 


The reader is advised to study the details of the 
following routines in conjunction with the program 
flowchart (8.0). ; 


3.1.02 - Calendar Routine (tables for this routine are taken 
from the calendars for 1969 and 1970.) 


Each Weekly Log Sheet contains a date to which a 
week number will be assigned. For example, if a 
sheet contains the date October 15, 1969, the pro- 
gram looks first/in the following table at the 
month October, and determines that for any day in 
October, at least 14 weeks must have transpired 
since week number 1 (which we have designated to 
have begun July 1, 1969). Now the exact number 
of weeks which have transpired prior to October 
15th must be determined. 
| we 
The calendar/ day representing the Sunday of the 
first complete week within a given month is used 
as the initial value to which 15 is compared. 
According to the table the Sunday of the first 
complete week for October falls on the fifth. 


Ps 5 7 
LNWKS (MONTHS) | ISUM (MONTH) 
Least number of weeks Calendar day on which the 
Month which must have transpired Sunday falls for the first 
if in the given {nonth complete week of a given 
% month 
ee eee ee ee 
1 (July) 1 | 6 
2 (Aug.) 5 . 3 
3 (Sept.) A 10 7 
4 (Oct.) 140 =— 
5 (Nov.) 18 "963 
6 (Dec.) a 7 
7 (Jan.) 27 4 
8 (Feb.) 32 8 
9 (March) 36 . 8 
10 (April) 40 | 5 
1l (May) 44 3 


12 (June) 49 7 


Since the 15th is "greater" than the 5th, the least number of weeks 
value is incremented by one. Now we know that at least 14 + 1 = 15 weeks 
have transpired, _ Seven is then added to our first Sunday value of 5 to 
indicate the second October week began on the 5th + 7 = 12th. Again, 
the IF comparison is made, 15 is still found to be greater than 12, and 
again the least number of weeks is incremented (15 + 1 = 16). On the 
next iteration, however, the 15th is finally "captured" by the week 
increments of 7, i.e., the 15th is finally "less than" the 12th + 7 = 
19th indicating. that October 15 must fall in the week preceding the week 
beginning on the 19th. Hence, we assign week number 16 to the date 
October 15, 1969, 


3.1.03 - Determine Unit No.. for Initial Instruction 


If on a given day the unit number is marked, that 
unit number is accepted and the search for a unit 
number is bypassed. However, if the unit number 
is not marked while some other initial instruction 
grid is marked (other than clerical time) the pro- 
gram accepts the most recent unit number marked 
for this class. In the event that no preceding 

‘ unit number has been established for the class, the 
program uses the first following unit number marked 
on the current Weekly Log Record. If there is no 
following unit “number further processing for initial 
instruction on this record is' bypassed. 


3.1.04 - Determine Unit No. for Second Instruction 
Logic is identical to 3.1.03 above. 
3.1.05 - Criterion Exercise Routine 


If the criterion exercise is given for group 0 
(meaning the entire class) the criterion-exercise- 
given flag is switched on for all the groups in the 
class. If the criterion exercise is given for a 
group number other than 0, i.e., any one of groups 
1 through 5, the. criterion-exercise-given flag is 
switched on for that particular group number and 
group 5 (group 5 identifies a Weekly Log Sheet in 
which grouping is indicated but no group number is 
marked). : 


3.1.06 - Initial Instruction Time by Outcome 


For a given day, the total instruction time is 
apportioned to each outcome according to the 
following fraction: number of activities marked 
for the respective outcome over total number of 
activities marked for all outcomes. 
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Activities with no specific outcome number are 
assigned to outcome 5 which is presented under the 
heading "OTHER" in the printed summary (Appendix C). 


If no activities were marked on a given day, all 
the time for that day is also added to outcome 5. 


If "more" (indicating more than 60 minutes) is 
marked in the initial instruction time, then the 
duration of initial instruction is assumed to have 
been 70 minutes. 


Initial Instruction Days by Outcome 


This is similar to 3.1.06 above though fractions 
of days rather than fractions of minutes, are 
apportioned to each outcome. 


Second Instruction Time by Outcome 


For a given day the total time marked is apportioned 
according to the relative number of exercises marked 
for each outcome, as in 3.1.06 above. However, in 
this case Outcome 5 refers to the Criterion Exercise 
Retest. The results of this count are presented 
under the "OTHER" heading of the printed summary 
blocks. 


If no exercises are marked, the second instruction 
time is added to the array representing the. 'TOTAL' 
column of the printed summary. 


Practice Exercise Time by Outcome 


This routine apportions the Practice Exercise Time 
to each outcors according to the following fraction: 
number of praétice exercises marked for the outcome 
over the total number of exercises (practice and 
other) marked for all outcomes. 


Second Instruction Days 


Although the day rather than the time in minutes is 
apportioned over the outcomes, the apportionment 
technique here is identical to that used in 3.1.08 
above. 


3.1.11 - 


3.1.12 - 


3.1.13 - 


Assessment Needed 


Phase 1 


If a mark in either the "Skill or Activity" column 
or the "Daily Assessment Passed" column has not 
been encountered before for a particular activity, 
and that activity requires assessment, the assess- 
ment needed indicator (ANEED array) is set to the 
day (JDAY) of the school year on which it was 
needed. (JDAY is set with logic similar to the 
logic used in the Calendar Routine, 3.1.02). 


Phase 2 


After an entire class has been read, the day of 

the year values stored in phase 1 are retrieved, 
the instances in which these fall within a-‘parti- 
cular week are counted, and that sum is accumulated 
by week, then averaged over the number of groups 
submitting data that week. Note that the week of 
the school year can be determined from the day 
number (e.g., days 1-5 (JDAYLO = 1, JDAYHI = 5) 
fall within week 1, days 6-10 within week 2, and 

so forth). 


Assessment Given 
Phase 1 


The assessment given indicator (AGIVE array) is set 
to the day of the school year on which assessment 
was given, providing that the activity 1) needs 
assessment, 2) has not been encountered before, 

3) occurred on the same day that assessment was 
needed for this activity, and 4) that the corres- 
ponding "Daily Assessment Passed" column has been 
marked "Y" or "N." 


Phase 2 

Logic is identical to Phase 2 of 3.1.11 above. 
Review Needed 

Phase 1 

The review needed indicator (KRN array) is set for 
a given activity if that activity 1) needs assess- 


ment, 2) has not been encountered before, and 3) 
has "N" marked.in "Daily Assessment Passed" column. 


3.1.14 - 


3.1.15 = 


3.1.16 - 


3.1.17 - 


Phase 2 

Logic is identical to Phase 2 of 3.1.11 above. 
Review Given 

Phase 1 


The review indicator (KRG array) is set to the day 
of,,the school year on which that review was given 
if the review activity was given the day after 
review was needed for that activity. 


Phase 2 


This is similar to Phase 2 of 3.1.11. However, 
the days bounding the school week are shifted for- 
ward one day, e.g., 2-6, 7-11... rather than 
1-5, 6-10. This is done inorder to detect review 
given on the Monday following the Friday on which 
review was needed. The lower limit of each week 
2, 7... . is contained in KDAYLO. The upper 
limit 6, 11 is contained in KDAYHI. 


Group Averaging 


For a given class at the end of each week, values 


derived from routines 3.1.06 - 3.1.10 are averaged 
over the groups into which that class was divided. 
These average values are then accumulated by class 
(see XWEEK and AWEEK arrays). 


Supplementary Initial Instruction Time 


If in processing a unit within second instruction, 
that unit's criterion exercise has not been given 
(on initial instruction), the second instruction 
time marked is added to that unit's initial in- 
struction time. Moreover, if the above unit was 
not given in the initial instruction section on 
the day being processed, then one day is added to 
the initial instruction days corresponding to that 
unit. 


Output Routine 
The output routine prints all unit summaries of the 


class most recently processed. Teacher, school, 
district and overall summaries are also printed. 


3.2 - Variables and Internal Tables 


3.2.1 - Subscripts and Arrays 


Subscripts 
SUBSCRIPT ; MEANING 


unit Unit number (range: 1-10) 
level - Level number i.e., 

1 = overall 

2 = district 

3 = school 

4 = teacher 

5 = class 


Group number + 1. (range: 
1-6) The addition of 1 is 
made to handle group 0 
(e.g., IGROUP = 1 identi- 
fies group 0) which 
represents the entire 
class when no grouping is 
indicated. 


Number of a ski!1l or 
activity within the initial 
instruction section. 
(range: 1-15) 


outcome Outcome number: (range: 
1-6) to which a particular 
skill or activity is directed. 
1 outcome 1 
2 = outcome 2 
3 = outcome 3 
4 outcome 4 
5 = "other" for initial 
instruction or "criterion 


exercise retest" for second 
instruction. 


SUBSCRIPT MEANING 


‘ 6 = total of outcomes 1-5 
month School month (as defined 
in 3.1.02). 


week School week (as defined 
in 3.1.02). 


line Line number (range 1-10) of 
printed summary block, see 
Appendix C. 


Arrays (Unless otherwise noted all variables are 
integer type) 


AG (unit, level) - This array counts the number of 
times assessment was given for the appro- 
priate unit and level (see Phase 2, 3.1.12). 


AGIVE (group, unit, skill) - This array is used to 
indicate whether or not assessment was 
given for the appropriate group, unit, 
| and skill (see Phase 1,73.1.12). 


ay (unit, level) - For a given class this array 
counts the number of times assessment was 
® needed for the appropriate unit and level 
(see 3.1.11, Phase 2). 


ANEED (group, unit, skill) - This array indicates 
whether or not assessment was needed for 
the appropriate group, unit, and skill 
(see 3.11.1, Phase 1). 


AVG (unit, level) - This array counts the number of 
classes to be averaged at each level for 
the appropriate unit (See Appendix C, 
print line number 0). 


AWEEK (group, unit, outcome, line) - For a given 
class this array accumulates one week's 
data. In turn this weekly data is 
accumulated in XWEEK nvee 3.1.06 to 
3.1.10). 


IASSES (unit, skill) - For a given unit and skill 
a value of 1 or 0 in this array indicates 
whether or not that skill requires assess- 
ment (see Table 3, 3.2.2). 
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® ICON (2, 8) - This array is used to convert alpha 
instruction times coded by the scanner to 
numeric values representing minutes (see 
Table 2, 3.2.2). 


. IRC (unit) - The Criterion Exercise activity numbers 
~- for each test unit are stored in this array 
(see Table 1, 3.2.2). 


IHDGS (level) - This alpha array contains the labels 
of the levels to be inserted in the heading 
of each unit summary print block. 


IHDGS (1) = ‘OVER' 
IHDGS (2) = 'DIST' 
IHDGS (3) = 'SCHL' 
IHDGS (4) = 'TCHR' 
IHDGS (5) = 'CLSS' 


INDCRI (unit; group) - This integer array indicates 
with a 1 or 0, whether or not the Criterion 
& Exercise has been administered to the appro- 
priate group, for the appropriate unit. 


ISUN (week) - This array contains the calendar day 
on which the Sunday falls for the first 
complete week of a given month (see 3.1.02). 


*" JALUNI (unit) - For a given class this array indi- 
, cates the units which were reported on the 
Weekly Logs received. 


JWKUNI (unit) - For a given class and week this 
array indicates the units which were 
reported on the Weekly Logs received. 


KDSTC (level) - This array contains the class 
identification number (identifying District, 
School, Teacher, and Class) of the preceding 
Weekly Log record: 


Level KDSTC (level) 
1," Not used 
2 District 
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10 = 
Level KDSTC (level) 
3 - School number 
4 Teacher number 


5 Class number 


KRN (group, unit, skill) - For a given group,-unit 
and skill KRN = JDAY indicates that review 
was needed, while KRN = -l indicates that 
it was not. KRN = 0 indicates that no 
data for this cell was encountered (see 
3.1.13). ; 


KRG (group, unit, skill) - For a given group, unit 
and skill KRG = JDAY indicates review was 
given, while KRG = -l indicates that it 
was not. KRG = 0 indicates that no data 
for this cell was encountered (see 3.1.14). 


LDSTC (level) - This contains the alpha labels | 
corresponding to the appropriate level 
nurbers, (e.g., LDSTC(2) = 'DIST') to be 
inserted in the heading line of the print 
summary block. 


LNWKS (month) - Least Number of Weeks. This array 
contains the least number of weeks that . 
must have transpired if in a certain 
month, e.g., if the month October (month iy 
4) is read, the 4th element in LNWKS 
indicates that at least 14 weeks must have 
transpired (see 3.1.02). 


MALPHA (238) ~ This array contains all the alpha 
data of one Weekly Log. See Appendices 
A ("Weekly Log Response Sheet") and B 
("Format of the Input Records"). 

MBUFF (44) - Buffer area used by NTRAN routine 
(see 4.1). ‘ 


MDSTC (level) - This array contains the class 
identification number of the current 
Weekly Log. The structure of this array 
is identical to KDSTC. 
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MOUTCO (9) - This array is used to allocate an out- 
come number to each second instruction 
exercise. See Table 6 of 3.2.2. The 
subscript -value corresponds to any one of 
the 9 positions of a given row in the 
second block of the second instruction 
section. See Appendix A. 


NGRPS (week) - For a given class this array contains 
the number of groups into which the class 
was divided for each week data was submitted. 


NOUTCO (unit, skill) - This array contains the number 
of the outcome toward which a given skill 
within a given unit is directed (e.g., from 
Table 4 of 3.2.2, the entry in the second 
row and third column indicates that the 
second skill within the third unit is 
directed toward outcome No. 2). 


PACT (outcome) - On a given day this array is used 
to count the number of second instruction 
Practice Exercises administered for each 
outcome. 


RACT (outcome) - For a given day this array is used 
to count the number of skills that were 
administered for each outcome. 


RAVG] (unit, outcome, level) - This array contains 
the average daily initial instruction 
time apportioned by outcome for each 
level and unit’ (see Appendix C, print 
line number 8). 


RAVG2 (unit, outcome, level) - This array is 
similar to RAVG1 although it contains 
the average daily second instruction time, 
rather than initial instruction time 
(see Appendix C, print line number 9). 


RAVG3 (unit, outcome, level) - This array contains 
the ratio of practice exercise time to 
second instruction time as a percentage 
apportioned over outcomes for each summary 
level and unit (see Appendix C, print 
line number 10). 


RG (unit, level) - This array counts the number of 
times review was given for a given unit 
and level (see 3.1.14). 
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& ye RN (unit, level) - This array counts the number of 
times review was needed for a given unit 
and level (see 3.1.13). ‘| 


SACT (outcome) - For a given day this array is used 
to count the number of second instructio 
exercises administered for each outcome,“ 
In this application Outcome 5 refers to the 
Criterion Exercise Retest. Outcome 6 
counts the Total No. of outcomes given 
for second instruction that day. / 

XWEEK (unit, outcome, level, line) - This array 
accumulates the class data for print ‘lines 
1-5 of the summary print block. ‘ 


3.2.2 - Internal Tables 
Table No. 
1. ‘DATA ICR/15,14,12,13,10,10,9,12,15,11/ 


2. DATA ICON/'A',5,10,'C',20,'D',30,'E',40,'F',50 
'g',60, 'H', 70/ 


© 3. Units 1-10 


DATA IASSES/0,1,1,1,0,1,1,1,1,0, 

| 1 105k 2211325152; 
Skills l 0,1,0,0,1,1,1,1,1,1, 
1-15 1 11, 15;1,9, 751,05 1, 
1 O84. 4,231, tb 

1 C0 dvds Tol sOs las 

1 Wad aie Tak, 

1 L Lt, ek Weds OO, 

1 Cyl dt LEO hails 

1 1,14 151,0,0)05041,.%5 

1 0; 1,1,1;0;0;,0,1,1,0; 

1 1,1,0,2;0;0;%,0,0,0, 

1 0, 1,050,0,0,0;0,1,0, 

1 1,0,0,0,0,0,0,0,1,0, 

1 0,0,0,0,0,0,0,0,0,0/ 


4, Units 1-10 (this table was labeled ITIMF in the 
initial version CS-1-WLS) 
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DATA NOUTCO/5,2,1,4,3,2,4,3,4,5, 

1 43525253933 3rh5359' 

Skills 1 Dy Brooks lolseslsdes 
1-15 1 L pbs 5352592525355 53% 
1 2,2,2,1,3,3,3,1,1,1, 

1 39353,251,1,1,5,3,5, 

1 153351,;4,1,1,;3,1,1, 

1 4,1,1,3,3,3,1,1,4,5, 

1 5,4,4,3,1,1,5,1,5,1, 

1 151,151,555, 591515 

1 Spl 51515555555 252555 

1 2 5155515555555 53995 

1 39:25 555553959550 555s 

1 Li Ss5s os Ds Oey Di Lads 

L 59.55.5055 5.09 0959 5505 0/ 


6. DATA MOUTCO/1,1,2,2,3,3,4,4,5/ 
7. DATA LNWKS/1,5,10,14,18,23,27,32,36,40,44,49/ 
8. DATA ISUN/6,3,8,5,2,8,4,8,8,5,3,7/ 

3.2.3 - Variables 


IAG - For a given class, unit and week IAG is used 
as a counter of the times assessment was 
given. 


IAN - IAN is similar to IAG though it counts the 
number of times assessment was needed. 


IBLANK - Contains (1H ) 


ICIEX - For a given day and unit this value references 
the location’ of the Criterion Exercise acti- “ 
vity in the Skill or Activity columns of the 
Weekly Log Sheet. 


ICURU - For a given class this is the most recent 
unit number processed in the initial instruc- 
tion section. 


IDAY - This variable representing the day of the 
week is incremented from 1-5 as the program 
processes from Monday thru Friday of the 
Weekly Log Sheet. 


IEOF - This flag variable is Set equal to one on 
encountering EGF. 
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IFIRST - This flag equals 1 until the class identi- 
fication number has been initialized. 
Thus, every record starting with number 2 
will be read with IFIRST = 0. : 


IHI - For a given day this is the upper limit of 
a Do-loop used to process the "Skill or 
Activity Column" of the Weekly Log, 


Its value corresponds to the bottom of 
the "Skill or Activity Column" on the 
Weekly Log Sheet. 


ILEV - This subscript is used to reference level 
number (e.g., ILEV = 1 implies overall, 
ILEV = 2 implies district, etc.) 


ILG - Lower limit corresponding to IHI (e.g., the 
value stored in IL@ corresponds to the 
top, and IHI, to the bottom, of the "Skill 
or Activity Column"). 


I®UT - Subscript identifying the selected outcome, 
where I@UT = 1 through 4 identifies out- 
comes 1 through 4 and I@UT = 5 identifies 
the "OTHER" column of the printed summary. 
In the initial instruction, the "OTHER" 
column contains the time and days with no 
skill or for skills or activities given 
which were not associated with outcomes 1-4. 
In the context of the second instruction 
section "OTHER" contains the time and days 
spent on the "Criterion Exercise Retest," 
and an I@UT value of 6 references the 
"Total" column of the printed summary. 


IRECS - IRECS is a count of the number of Weekly | 
Log records read. 


IRN - IRN is similar to IAN but it counts instances 
in which review was needed instead of 
assessment for a given class, unit, and 
week. 


IRG - IRG is similar to IAG bit it counts the in- 
Stances in which review was given instead 
of assessment for a/given class, unit, 
and week. 

ISKILL - This subscript is |used to reference the 
"Skill or Activity" number within the | 
"Skill or Activity Column" of the Weekly 
Log form. 
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ISWRL - This integer code number identifies the 
output mode (e.g., 6 = Printer 
8 = Tape). 


IUNI & IUNIT - These subscript values reference 
the instructional unit number. 


IWEEK - IWEEK contains the number of the school 
week assigned by the Calendar Routine 
(3.1.02) according to the date marked on 
the Weekly Log record just read. 


IX - This Do-loop index is used in the Calendar 
Routine (3.1.02) to loop through a month 
in increments of seven days. 


JCURU - For a given class this is the most recent 
unit number processed in the initial 
instruction section. 


JDAY ~- This identifies the day of the school year. 
See Calendar Routine (3.1.02). 


JDAYHI - For a particular week this serves as the 
upper limit of the range of the day value 
stored in arrays KRN, ANEED, and AGIVE 
(see Phase 2 of seétions 3.1.11, 3.1.12, 
3.1.13). 


JDAYLO - This lower limit is used in conjunction 
with JDAYHI, 


JHI - Upper limit of Do-loop value used to process 
a day row within the second block of the 
second instruction section, 

JLEV - This is the inversion of LEV, e.g., 

1 = Class Level 


5 Overall Level 


JLEV is used to determine the order in which 
the print block summaries are to be produced. 


JLO - Lower limit of Do-loop value used to process 
a day row within the second block of the 
second instruction section (see JHI). 
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JOUT - Subscript used to reference a particular 
outcome number. 


JSKILL - Subscript used to reference "Practice 
Exercises," "Other," and "Criterion Exer- 
cise Retest" fields in the Second Instruc- 
tion section. 


JSUN - As lower limit of the Calendar Routine Do-loop, 
JSUN indicates the calendar day on which the 
Sunday falls for the first complete week of 
a given month. 


JUNIT - Subscript used to reference the second 
instruction unit number. 


Kl - This is used as the temporary value for a 
cell of array KRN. ; 


K2 - This is used as the temporary value for a 
cell of array KRG. 


KDAYHI - For a particular week this is the upper 
limit of the range of the day value stored 
in KRG (See Phase 2, 3.1.14). 


KDAYLO - This is the lower limit used in conjunction 
with KDAYHI. 


KGROUP - This identifies the group number of the 
prior Weekly Log. 


KGRP - This subscript is used to reference group 
number. . 


KLINE - Refers to lines 1-5 of each printed summary 
block. See Appendix C. 


KOUT - This subscript serves to reference the out- 
come number. 


KPUNI - On a given day this is set to the initial 
instruction unit number to be processed. 
It is then tested in the Supplementary 
Initial Instruction Routine (See 3.1.16). 


KSKILL - This subscript serves to reference skill 
or activity number. 


18 


KWEEK - This variable contains the prior school week 
number of the class being processed, 


LEV - This index variable is used in the Do-loop 
which determines at which level the ID 
change’ took place. 

LEV 1 indicates the overall level 


2 indicates the district level 


3 indicates the school level 


$ indicates the teacher level 


5 indicates the class level 


The final value of LEV on existing the 
Do-loop is used to control the print loop 
in the Jutput Routine. 

LGRID - This subscript serves to reference unit 
number in initial instruction section. 


LGRID2 - This subscript serves to reference unit 
number in the second instruction section, 


LWEEK - This subscript serves to reference week 
number, 


MAX - This Do-loop upper limit serves to determine 
which initial instruction activities have 
been given on a particular day. 


MDAY - This subscript serves to reference the day 
field on Weekly Log Sheet. 


MGROUP - This variable contains the group number +] 
of the latest record read. The addition 
of 1 enables the use of MGROUP as a sub- 
script since group number starts with 0 
(0 = entire class). 


MIN - This Da-loop lower limit value serves in 
conjunction with MAX to determine which 
initial instruction activities have been 
given on a particular day. 


MLEV - Each time the output print loop is executed, 
MLEV is incremented. In turn the level 
pointer is calculated by the equation JLEV = 
6 - MLEV. This steps JLEV thru the class, 
teacher, school, district, and overall 
levels. 


MMAX - This Do-loop upper limit serves decode unit 
number (see 3.1.04). 


MMIN - This is the lower limit of Do-loop used in 
3.1.04 to decode unit number. 


MONTH - Indicates the month (July = O01, Aug. = 02. 
June = 12) in which the Weekly Log Sheet 
was dated. 


MSTAT - This NTRAN (4.1) status word indicates the 
status of the NTRAN read/write operations 
according to the following codes: 


0 indicates the number of words transmitted 


-1 indicates transmission not complete 


-2 indicates EOF 
-3 & -4 indicates tape error. 


NBOT - This Do-loop index value is used in 3.1.03 
to check for unit numbers marked on the 
following days. 


NLEV - This serves as the lower limit of index value 
in the Do-loop used to zero the appropriate 
levels of the LDSTC array. 


PAGAN - This print value contains the percentage of 
time during which assessment was given (see 
line 6 of Appendix C). 


PRGRN - This print value contains the percentage of 
time during which review was given (see 
line 7 of Appendix C). 


RMINS - This type read variable serves as a count 
of initial instruction time in minutes. 


SMINS - This type read yariable serves as a count of 
second instruction time in minutes. 


4.0 - SUBROUTINES AND FUNCTIONS 
4.1.- Subroutine NTRAN 
NTRAN is a FORTRAN callable subroutine used on the Univac 
1108. In conjunction with subroutines ENCODE and DECODE, 
NTRAN is called to read and write the Weekly Log File's 
formatted logical record because their lengths exceed the 
capacity of the standard FORTRAN READ and WRITE statements. 
For details of NTRAN, see the manual entitled "UNIVAC 1107 
FORTRAN UP - 3969 Rev. 1,"' Section 7, pp. 9-13. 
5.0 - DATA SPECIFICATIONS 
5.1 - Input Formats 
See Appendices A and B for the relationship between the record 
positions 1-238 on tape and their respective locations on the 
Weekly Log Sheet. ‘Note that all of fields are of alpha type. 
Characters corresponding to marks on the Weekly Log Sheet are 
contained in tape record positions 1-238, while the remaining 


positions of the tape record contain the following numeric 
data: 


Positions Description 
239 - 240 . District No. 
242 School No. 
244. Teacher No. 
246 Class No. 
248 Month (July = 01 - June = 12) 
250 Day 
251 Group No. 


264 Unused by this program 


5.2 - Output Formats 


An example of the output summary blocks can be found in 
Appendix C. Concurrent with the hardcopy output, a tape 
was written with the same format, though summaries above 
the class level were omitted. 


& 6.0 - PROGRAM CONSTRAINTS AND LIMITATIONS 


- Fortran V 

Vendor 

University Computing Company 

Storage Requirements 

25,000 octal words 

Hardware Configuration 

Univac 1108, card reader, 2 tape drives and printer 

Program Parameters 

None 

Error Messages 

1, MORE THAN ONE SHEET PER WEEK FOR A GROUP AT RECORD NO, 
This is a warning message only. Program adds 1 to group 
count and averages in this additional sheet or sheets. 
FAILED TO FIND UNIT IN 'DO 1003 LOOP' FOR RECORD NO. 
This is a warning message in which the program indicates 
that it was unable to find a unit number, even though it 
had encountered initial instructicn data. 
FAILED TO FIND UNIT IN'DO 4503 LOOP' FOR RECORD NO. 
This is a warning message in which the program indicates 
it was unable to find a unit number, even though it had 
encountered second instruction data. 

7.0 - OPERATING INSTRUCTIONS 


The Weekly Log Processor was executed using the following control 
cards. 


1 RUN, W WOLFE, account no., 7, 400 
MSG DELIVER TO SWRL 
RAKEX ASG E = 1343 NORING 


1 RX ASG H = $1019 
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@ FOR WLS, WLS 
(Source Deck) 


@ XQT WLS 


@ XQT CUR 
TRI E, H 
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4,0 Propram Flowchart 


GF SWE 


PROGRAMMER: Lom Foote and Howard Wolfe 
Procram |D: cs-L-WLSRL 


End 
Control 
Record? 


Calendar 
Routine 
(3.1,02) 


Group 
Averaging Class or 
Routine Yew Week} 
(3.1.15) 


Phase 2 of 
Sections 
3,1,11 to 


J.1,14 


Loop Weekly 
Log by Day 


Begin Initial 
Instruction 


Unit No, 
Efid Contro 
Record bee 


Cy? (3.1.03) 


Routine 


FrowcHart Layout Form 


“Frowcwart Layout Form 


cy PROGRAMMER: Tom Foote and Howard Wolfe —_ DATES ce 
Procram 1D: cselmspp Pace _2. oF _2_ 


Criterion 
Exercise 
Routine 
(3.1,05) 


Sections 
3.1,06 to 
3.1.07 


Phase 1 of 
Sections 

3.1.11 to 
3.1.14 


Begin Second 
Instruction 


Unit No, 
Routine 
(31,04) 


Supplemental 
Initial 
Instruction 


Cyiterion 
Roars give 
f 


rothis Group 
7” 


BN 


No 


Sections 
3.1.08 ta 


& Yes of Weekl No 
Log Rec 
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APPENDIX A , WEEKLY LOG: COMMUNICATIONS SKILLS PROGRAM 


; 1 i ys: SP 3 4 2 
Bee HOY ory 7. 8 
90 ey "Grid" of "Field" 5. 


Field numbers correspond to subscripts of the IALPHA array. 

The grid marked within each field is scanner coded to an 

alpha character (yawally firet grid coded to "A," second grid 

to "B," and so on), which is in turn stored by the WLSORT program 
into the IALPHA array. 


if. 13 
= Beas dua De Oem ae aves ae aren ee, 
ae | ee a ae i Pees nr ayy 
z Salen ce Sogendecat “ik 2h Bete. oS 
sie a Deas ie ea ee 2b oe. Sabb eke. ; 
bi Ssay Se ENROn A Rn nt ee se 2s. ahd oe Bie 
eS x, ae 
= 
29 90 BL. ¥3e  * -Oa-* Bee AS 36: 37 > 38 
Oo 1 4Or. ALY #3 bs | BS Y 46y m7 Y 4B" 
49 0.» 1 SR ae 55 - 56 57% §8: 
@ igor 1 leh’ Bie Bom S50 gee | Bro be 
69 (70 71 «72 ‘73° Gain 75? 76. 77. 98. ‘ 
79 + 80a 81 82 BI 1 4: B5 % §6. 87 7 B8& | 
& 89 = 90 91 92 93° 94 95 - 96. 37 O88 | 
99 100: 101 + 102 103 “pe 105 7196: 107 ¥188 | 
109 110 111. 112 =. 113 +144. 115 116 117 148 
119 “120, 21 . 123. 423 ¥1R4 {25 716": 127 * 198. 
129 130 131 1392 133 -194 135 ’136 137 198. 
199 "140. 14, 14 49 YAM. TAS 2146! 1a? 7148 | 
149 150 151 152 153 164. 155 156 157 158 | 
159 7160, 161 / 162 69 5184, {65 71b6: 167 (168° 
169 170. 171 172 173 °1845 175 176 177-178 
: 179 ‘ = fe6 181 
re | er meee i 184 | 
185 186 187 
“188 189 190 
191 192 193 
& 194 195 196 197 198 199 200 ~=. 201 202 


203 204 205 206 207 208 209 210 211 

i 22l2 213 214 215 216 217 218 219 220 
~221 222 223. 224 225 226 227 228 229 
230 231 232 233 234 235 236 237 238 


Tt) Te FOR! 8846 ee Ty OP UE AL St ASIN. FRE RATION cee pee ee ane 
ry . 


APPE.DIX 6B 
FORMAT OF THE INPUT RECORDS 


leacher} Yiteeg 
238 ALPLA Charactor Responses Per ki co 

Llass | 1 Risky: vane Lot 

{12 5-s67es30 
FILE NU*BER 1 RECORD NUMRE RL LENGTH a4 : ; Pay ae a 
BAABDKHARANC JFCIFHIFCIGCIFO BC Base 
Ba BC BA 6c P 30101. 2, 8450 
FILE NUMBER 1 RECORD NUMBER _ LENGTH 44 ; : a 
BAARDSBARCAC UGCUFBVERIGCYGBBC Base | 
as axpaos 2. 8200 
ILE NUYBER RECORD NUMBER LENGTA 44 js 
BAARDBBABCHC VGCUHCVEC ; pc 
BC ete iS 2 , > axos01, 2. men : 
FILE NUMBER 1 RECORD NUMBER LENGTH aa ; : 
BAaaDBCAICGC AGBADBADAADBADG . BC BRBCBC >> | ’ Va a 


13192, 1, s2¢axecoape009_ oo 


FILE NUMBER 1 RECORD NUMBER. LENGTH a4 


BAAADBCAya0c aD ancageactaca, Be” : BA — pees 7 | ibe ist igan: 
ees p nes fsa 3100p 000000 
FILE NUMBER 1. RECORD NUMBER 65 LENGTH 44 ae = Ne ae rtd SEU TATEES 


— Hes 
, 


Ba Bc _ Bapcec =< 
FILE NUMBER 1 RECORD NUMBER "LENGTH 
AAADBCAJBAC act AFC 7 


BC } 
FILE NU“BER 1 RECORD NUMBER. f _ LENGTH =the alr sat silica 


BasaOscaucEC = =—=—~—S~SBG AB 1 Be : Oe a es ts oa ipsa ea 


i aD aD) OD A : ° 02) 4) 2401109099000" 
FILE NUMBER 1 RECORD NUMBER 68 ~ LENGTH 440 é Ss 
BaaaDBCavcec wG BGBBGABGHUBGA : , ? j i : REESE 


130102 1 ‘310, seqoseoo9. 


= ox = —S : a é a = te ee Creer ce 
BAAADBCAKAHC BFBBFBBGEBF BGB | bal | | | ly ee 
BaBC BA ; x . : 430102 15 70 s000co000" 
1 _ RECORD NUMBER LENGTH : ft oad 

BAAADACAKBEC 8 BCFCHHCGACFA Ba BRBA : : oe ee ey 

s BA BC 3 'a30102 2 5149 aloncoo00 
FILE NU“BER 1 RECORD AUMAER LENGTH rs Vy 
Basadscawcac C ACCACE CFBCGS [ é 


FILE NUMBER 1 + #£RECORD AUMBER 


~ 
: __ BEB Q 130102 1 S210 14engoo0e 
FILE wuvBeER 1 RECORD NUMAE= LE'GTN te lh 6" Og Mee Seg eee, 
BABACRCAKCGL CEACIaCH : Ba 
es F Vs0It?: 2 S26" peqpders 


nh 
@ 


srPr@*¢ 
Ou t Summary Blocks 


Level of this Summary(either CLSS,TCHR,SCHL,DIST, or OVER) 
Overall Number of Jlasses 


\District ; Used in the Denominator 


| 

| 

| School to Obtain the Average 
| | | |Teacher 
| 
| 


at this Level 


illic | 


UNIT cusS 01111 OUTCOME 1 2 3 OTHER TOTAL N= 4s 
INITITABR INSTRUCTIONAL TYME 195,C690 20.0090 25.2090 °5,0000 340,0006 
INITIML INSTRUCTIONAL DayS 11.6667 1.5000 4.°333 1,5090 24,0000 
Se INSTRUCTIONAL TIME 21,6647 21,6667 21,6667 : 29090 90,0000 
Ice EXERCISE TIME a1 Eee? 2165667 21.4667 ©0000 80.9000 
Beton INSTRUCTIONAL DAYS CE33 1,0833 1.°833 0000 4.5000 
eee SSMENT “SEEDED 7.9000 gadteeneyt GTyEN 7.00C0 = 
REVIEW SEEDED 5,99900 REVIEW GIVEN 5,0c00 %= 
AVG DAILY INITIAL INSTR, TIME 16.7143 13.3333 13,6364 3,3333 14,1567° 
£YG DAILY S=COND INSTR» TIME 20,9995 29.9080 29,7090 27.9900 »0O00 8 =6.20, C000 
zm P, Ex, TIVE TO SEC. INSTR, 190.0002 199-0009 109-70fO 1980000 +3090 8f.8889 


OCOVUMNDUFWNrKE O AF 


_ 


UNIT 2 CLSS 0 1 11 4 OUTCOME 1 2 3 4 OTHER TOTAL 
INTTLAL INSTRUCTIONAL TIME 192 ,193¢ 36,9444 65 5349 35,3175 29,6090 330,0090 
INTTIabl LPeSTRUCTIONAL DAYS 99,7392 2.7222 3.7817 12,7659 1.5050 194 9909 
SzeMNy {NSTSUCTIOVAL TIME 70,¢092 39.0000 eee 32,9079 165.9090 
pati tee Eye REISE TIME 706099 30-90CO 3c.7670 32,9000 i 167.0000 
ZCIND YNSTFUCTIONAL DAYS 4, 4667 3,9000 2. nee 7 6557 °f 13,9060 
fee SsMENT NECDED 11.9990 ASS= sS* ‘ENT GIVEN 8,0000 x= 72.4373 
5.39000 REVIE® GIVEN 5.0909 K= 1093,9965 
Pe ETTAL Instr. TILE 19, 7634 13,5716 13. 335 22.5036 17,3584 
balLy SECOND INSTR, Ty Seo083 16,000¢ 14.257 7S 
702 


7 
eH dh peer ee i2,3077 
TINE TOSECs INSTR, 100-5992 100.0090 102.70%¢ scc,29790 9020 4199,0990 


~ 


qf 2 LT OUTSONE 1 2 
hs TIME 196,2857 34,8574 
1.6857 
35,667 22, 
22.5333 


ed) 


wi 


4 i u " 
FY 


LS2 g85L9 
416,7320 


11.2029 


a. 
Nn 


° 
WIN os 


Wh Ne Nat oD 


a 
Py 
1) ee Ne @ 94 A) ND LA be 


7“ © @ () he ee f # 


Peer ete Ye 


~ oo eee ae 
Wer eet MC Ad 


12,6627 


CFS FRSA 
~-' eyed 


Ped Vd dD Re Abd Cod AA oD 


way 
(wren Vid 


4 
oe toad 


tee MeN UY 
. 

oe 2 
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9.0 - PROGRAM LISTING 


12823345 e WLS»WLS 
yCC 1196 FuRTRAN V LEVEL 3,1 
- THIS COMPILATION WaS CONS ON 27 APR 71 aT 11:23:45 


MAIN PRPUGR4AM 
STORAGE USED (SLOCK, *s*E, LE* CTH) 


#CODE NAOT TL 
@CAaTA “217274 
*BLahr CoO sO 


EXTERNAL RWEFEFENCES (3LTCK, NONE) 


C303 vTRas 
C.04 CECoNE 
CS95 = IERK2S 
Qu04 "adus 
0-07 NTO2¢ 
1) OU10 «= :STUPS 
kon) Gz11 0 oRDUF 
cU12s-Ntoa3 
0513 NwEFS 


STOWAGE ASSIGNMENT FO? VADTABLES (BLUCCK. TYPE, RELATIVE LOCATION, NAME) 


0002 00162 i10c0L cs02 COcZ17 1004L ooo. "01661 10026 ooo1 000216 1602L ono1 800230 1003L 
ooo2 yo1672 1913G 001734 10346 cOC1 CO1745 10426 coo. 001753 10476 ooo1 002004 10646 
ooo1 020N5 10676 : 001035 106% g0ci 701041 1069 voOL oO01017 1572L 0001 001102 1076, 
0001 vOO733 1u92L J 001040 1093. ooci ron722 1101L ooo1 Con717 1102L on01 000797 11C4L 
oooL yo?146 11056 09 OoL731 1105. occ. 902173 11206 ool 907174 11236 oco1 000633 1130L 
oco1 07242 11366 3 002273 11466 0001 £O023C7 115466 uno. CO2324 11646 ono1 002325 11676 
0002 JonéosS 1209L ! 00?371 12036 oCO1° =9902406 12136 ouol 602441 12236 COOL 002463 323256 
ooo1 vo?5n2 12416 t UO2521 12506 ooc4 ronveé2 1250L o00L G02540 12576 on02: 902557 12666 
ooo. 602616 13116 t G07631 13156 oor. CU2E46 13256 coo. 002661 13326 coor 002676 13416 
ooo1 JO02711 13466 ap 002731 13646 oor. 992733 13706 ceeo1 007733 123736 ono1 002745 14626 
0002 62066 1776 We 0O1E74 200CL occ1 fc1575 20071 C901 001670 202cL onod 007073 203c 
ooct vgi712 2030L uf 901745 2031L occs 7022C5 205rL ccos 007720 2c5it coo1 090206 2126 
ocoL £09137 225¢ OCUi7E 2426 ooo. 207225 2636 coo1 601732 2657L on0L 001737 2669, 
0001 Y92163 2700L r o0r242 273cG orca 702722 Z8BRL coor = 021372 30F oro1 900315 3u001L 
ooo1 2Of32zZ 3992L By 009345 3003L oog1 7o7356 3004L LOOL =6G0r467 S0G8L ooo1 000375 3064: / 
ooo1 vgn441 35965L 0 N0U457 3064L orci "m1571 30777 coo1 007301 3106 oroL Oon337 3316c | 
ones <09362 : L0N464 4006 0901 769121 4000L cno1 0ey592 4c56 oroi 001224 46571 
0904 901445 7: 001462 4066. 0001 2012363 406RL COOL = 001367 4c69L GeOs 001526 4n7cy¢ 
0701 301336 4: } 001345 4072. 0001 £91560 4073L cuoL C0153, 4076 L on03 500527 415¢/ 
ovo04 00822 2 001163 45001 ooci 991170 4501L cw01 Q01226 450A, oco1 001213 4563, 
0002 107754 Scoc. ’ 09°777, 5116 geca = 201024 5246 Gfol 901061 5766 o004 01153 565% 
0202 201209 $466 191232 6226 ofci 301257 6376 C901 =991274 6475 oro. 091352 6636 
0201 701411 > oc16¢25 752% o0ci = 92916 26 7555 UfOL 901677 76y5 Pe01 9014635 7626 
0701 334666 : j0 001660 7775 are, nares B99L croc 921470 90O0F fon 124413 OPCiF 
02090 421422 iF 9700 021437 9003F ncen G22467 9O04F u00 021453 9nOKE 6909 021475 VuCt7e 
o900 y21920 9o0 ae v2153¢ 9NC9F eoca 621540 9010F eroo 921555 9uL11F eogn 021549 9O12F 
0900 21976 Vu f C21éu5 9014F goon 921652 9015F ocon £21622 9C17F enon N21632 9N1KF 
0300 e21442 Yo x MOL037 9O2L ocot g0np4$3 9oO3. cet $090?5 9cC6L NMC 200013 FI7L 
oco. 62311 ys couc54 999L n9cen 7 014541 aG C3709 1 On00C2 AGIVE f90N 2 014457 an 


0300 1 w01e@preco 0500 8 U2lZ33 AVG o0cn % 514623 -@ C109 1 C2110 1 Joon 1 24327 yacr SB 
0900 { 23357 JAG 9300 I 021356 IAN oocao ! c21c36 1a cN00 1 N21363 14yG oros 1 c21244 IPLANK 
0000 1: ¥N3412 IcO% C309 1 003444 jcR ODEN y 724314 ICRIEX onon 1 022312 Icurzu £CO% y 921305 hay : 
0000 1 £21267 {EOF 0100 1 0212466 |FIPST ocoe 3 73467 [ROSS L909 1 921317 Ik] 2009 1 G21374 ILEV 
gooo : ¥21316 IL6 C200 1 010732 INDCRI coon 1 241320 lout 0709 1 021270 IFECS on00 3 C21355 RG 
9000 1 ~21354 JR 0909 ~ U21335 ISKILL cocn } "21022 {Sux Ls09 $ 921372 1S8RL 200 7 G21344 yuX ; 
0909 1 3215123 Povit ecoG 1 Yél1277 IwWwEFK onon 3 L21301 Ix cooc } 921265 IF aeor 1 021273 v 
0900 1: 221343 JectT o.0C ¥ Gér543 gauure o7en ¢ 7N%432 GCON ccoe 3 921334 ycLsu e900 1 021321 yay 
ocoo : =21550 JoavH! Ovoe 7 021351 yoavLo oocn 1 £21340 URI cco? 1 021342 JLEV 9009 y 021337 yLO 
0900 : #21326 yout Ov90 y 921336 YSRILL acc) 3 721360 ySu" C900 7 221335 yuwtT coo y C11511 YwKNy 
0090 1 421366 K . 0200 7 021252 KDAYH! acco ft €21353 KD«sYLO coon 1 C11594 KeSTcC ocoo 3 021303 KGROLUP 
0000 1 421346 KgaP O700 {1 U21345 KLINE ooce } 721341 KOuT ccooc 1: 021396 KPuN] ocoe. y 007194 KRG 
0900 1 .05300 Kay 6.00 1 G21360 KSKILL ooun | 221302 KwerK OvOo 1 021323 «4 on09 y 021324 K2 
- 9000 1 421365 L 0400 1 011026 LosTc ooon 1 21272 Lev c20C 1 021397 LG6RID coon 1: 921330 LGRID2 

0009 : ¥21006 LywKs Oc00 } 021347 LwEEK ooec 1 521322 O00C 1 011033 MaLPHa onoo 1 00c090 Max 
0000 | ¥1143G bauUFF 6y00 | 021275 pay occe 1 011423 mOSsTC c20°0 1 021276 GROUP ocoo 1 000081 MIN 
ocoo 1 ¥21361 PLEV 0900 1 021333 mmax 0000 1 U21332 mMIN uooo 1 621274 MONTH oc00 1 003456 mOLTCO 
0000 1 221271 “sTaT OyOO y 011441 MUNIT ooco 1 21311 NBOT uo0n 1°020555 nGRPes 0000 1 021364 NLEV 
0009 : 420315 NouTCO Ov00 {| 021331 NPT ooon # 719716 PACT 0000 8 U21367 PAGAN 0000 R 021370 PRGRN 
0000 R ¥iC710 RacT 0£00 R 003474 RAVG1 once © 794150 RAVG2 coon R° 904624 RavGs 0000 & 020724 RG 
0000 R U21325 RMIKNS 2000 R C20642 RN OOLO & 010724 SacT 0900 R 021342 SMINS 0000 R 011523 xwEEK 

or101 de INTEGER aGIVE, ANEED 

00103 ce DIMENSION 1[CONC2,8) s+ JCON(10), ICROL0) 2“ OUTCOUD) 

ac104 2 DIMENSION 16CGS65)/RAVG1(100625) pRAYG2(10 0605) pRAVGS(102605) 

gc105 4e DIMENSION K8N(C6010/15)+KRG( 6.40015) 

00106 >. DIMENSION aNEED(6,10,15), aGIVE(6,19,15) 

00107 te DIMENSION RACT(65.PACT(6),SACT(A) 

00110 Je DIMENSION INpcRI (1006) +LpSTc(5) 

00411 oe DIMENSION MALPHA( 238) sMUNITCI0) oh OSTC(5) eMQUEF( 44) eK DSTC(5) 

a 30112 ane DIMENSION JwKUNI(10) »xwEEK( 10760525) 24NC1905),AG(10,5)0 

07112 1. t AWEEK(E,10,6,5),4VG(10,5) 

00115 aie DIMENSION NOUTCO(10015) 

00114 ite DIMENSION JaLUNI C10) NGRPS(53),RN610,5).RG(1005) 

00215 12 DIMENSIAN LNWKS(12),1SUN(12) 

QN216 Eg as° GIMENSICN 14SSES(10015) 

00117 he 15° DATA IBLANK/' "7 

go121 2e DATA ISN 4603070522071408,8,50307/ 

00425 17. DATA LNAKS/1,5,10,14,16,23, 27,32, 36,47, 44,49, 

30125 ae DATA MO JTCOAL 1020205930 40495/ 

00127 ive DaTa 106971501451201361001909,12015011/ 

00431 aye DaTa ICONZ at eSe'B sl." Chs20e Dae Ee 4On'F' p50, "C's BOs 

90131 2te 1'H'.79/ 

90133 2ee0 DATA IH5GS/'OVERNs DIST’ s "SCHL! * TCHR", 'CLSS'/ 

9135 2=* DATA JCCN/#At, "Bt, *Ch, "Ot, tEr Eh, tats tet tT ty tty 

ovis? 246 DATA NO.'1TCOs5,2,1,4,3,2,4,3,4,5, 

30137 256 1 Ge Se2e2e3e3e3519303> 

00137 2c0 1 SeSeSadolLelLole2eierie 

00137 2/a 1 Lelelede2e2e2e305032 

00137 2%e a} 2e2e2eledeSe3eLeieie 

00137 2%e. 1 BoeSsSdeZoLelLele5e305e 

00137 3 L Ledodete4olLeLedotris 

9ci137 3is b J SoLoLe desde Seisindr Se 

90237 Ben 1 Se4eGe Seti sSeieSede 

99137 35 1 Lededete 525s 5eSoteds 

3°137 340 1 BoeleteteSeSeSeir2e5e 

90137 aa” 1 291080405255 5a 30 Se 

00137 3se 1 30125050525 05250505e 

09137 3/e 1 195050505050 50501 Se 

1 


91437 3Ge 


5050505052555 050 5/ 


= e. CATA YASSES/O01,40100, 


go141 Leledelele 

Ov141 UsislrOel> 

W441 lilsdeleal> 

ung4s Jeteloloi> 

VoL4as Us Jel olele 

39341 Lelei-tsls 

JO141 Lolote CeO» Avy see 

39141 Uslolelole LeCeodedod» 

y'141 Loteto1sle OrOeDolols 

goi1é. ColedeteOr OsDede40Cp 

o°141 Lodelirts Oe OoleDs Dole 

041 OrleCebeOe O-0rGetsl, 

y314. 161902000 + CrOeQeir Oe 

o141 OrOeUel De CrDeOe Ors 

uur14s . 33 FORMATC13201/106€A1 4120212, 1.010115 3X) 

oo144 990C FORYATC!-NTRAL FRROR NO.S,'15,1Xe'RECORD COUNTS ',]P/) 
9ny4s FOUL FORMAT(* CALENDAR ROUTINE ERROR. RECOKD COyYTe ',15/) 
00146 ( 9202 FORMAT(' MORE THAN ONE SHEET PE? WEFK FOR A',1X, 
90146 A'GROUF aT RECORD NOe='»18/) 

30147 9003 FORMAT(' FAILED TO FIND UNIT Ih ''po 1093 LOCP''',4y, 
W147 1'FO2 RECORD NO.2',187) 

9259 9006 FORMAT(’ FalLED TO FIND UNIT IN **p> 4593 LOOP''',41x, 
yu1sod 1'FO2 RETORD B.C. 39,187) 

gn151 9304 FORMATC# NOSt:AL END, RECORC COUNTS", 15/) 

ovis. INITIALIZATION 

un1s2 IFIQSTe. 

03153 1EOF#9 

00154 TRECS#9 

09154 TAPE INPUT 

03155 899 CALL NTIAN( 2.2144. MBUFF eMSTAT) 

90156 907 IF(MSTAT,EG.=1) GOTO 967 

g9v160 ~ IF CMSTAT.GT.9) GOTO 999 

0162 MSTaTs-“STaT 

0.163 oy 906 GOT 2(906,902,903,903)»MSTAT 

an164 902 IEOce1 

0u165 LEVsi 

901646 GOTD 2900 

5167 903 WRITE(6,9007) MSTAT, IRECS 

o0n173 STO> 1 

27174 ¥ 999 CALL DECODE(C MBUFF.132) 

yvu175 REAX(C31,30) MALPHS.(MDSTCO YU), 2205) 5 MONTHs MDPAY, NGROUPSNUNIT 
3¢216 IFC ¥O0STC(2).E9.99) GOTO 9r2 

99220 MGRAUPEYGROUFFL 

o?221 TRECS=IRECS+1 

weet CALENDAR ROUTINE 

0222 IWEZKELS WKS( MONTH) 

30223 JSUVETSUNCNONTH) 

qv224 pO 950 IX®ySUN, 38,7 

}u227 IFC “DaY.LT.Yx)? SCTO 100° 

g0231 IWEEK=].EEKeq 

9 '233 : WRITEC6, 9001) IRECS 

3°236 ctr. 2 

J"236 CC TRCL SO0LTINE 

‘1237 G5 IFCIFIRET2E%.1) GOTS 16°72 

241 : oC 1076 Levees 

n244 IFC 4S Te (LEV) NEWKLSTGCLEY)) GOTC 2°39 

19246 266 CC*T! wwe . 

u259 IFC <sFE<eNESTSEEK) GOTC 2709 

3N252 IFC <GRO.'PrEV.MGRCUP) WRITE(6,9092) [xFCS 


ee ds 


51256 
39257 
99260 
00262 
09265 
39267 
JU279 
W274 
yu2e7y 
01272 
C272 
3275 
31275 
012745 
yu277 
u300 
y 1301 
10303 
yf 3905 
113906 
yN3Q7 
00312 
344 
yn316 
30329 
39321 
au323 
un3s24 
06325 
39326 
39330 
0333 
ou335 
JN336 
uv34c 
yn34a3 
yigyad 
yus4s 
jn350 
9352 
37354 
U7356 
0357 
IT364 
3362 
JV363 
39363 
31364 
JI365 
0°367 
u372 
45372 
yO374 
09375 
Hy 376 
Q.377 
0°402 
21404 
)°407 
y'4211 


GOT? 1093 

IF135T= 

IFCTEOF,E9.,1) GOT? SoCo 
£9 1034 [Levez,® 
KOSTCCILEV) S*OSTCC LEV? 


NGrbk -C1eFEr 
aterLy Lon 
INETRUCTIC 
3077 [dave1,® 


J 


aoe Te 


Peennrtrea 


| 
- 


= bo 3) 

et EP CUR oe ee GATS BC. 
ECHL Poa pesd. pe BLANK) 59TC” 
cue Be JELASK) g Te Secor 
Get 

IFC TCU 
TUATTS aU 
GOT 3044 
NBOTENEST#S 

IFC\ROT,GT.26) SCT. $907 
i OIS [ENAGT, 26,3 

FCVALPe ACT) ,EG,IFLA a) fn 
Bors de? a r, IFLANK) GOTO 39073 


cat) GOTO 30C7 
X. 


* ITe*GROUP) Ae, 
rolCVUNTT)=2 
AL OYTO pT ys. 
S FyENXC{SE FOUTINE 
RELGRTDS1LO“I[PAVFICo (Tut TT 919-12 
LPAACICSIEYI NE. Toba K) ROTO 375% 
ALPOACTCPIE* +1) ovee TbL al «) £CTO SAS 
no 
"G2 IP LET 1) GOTO 33446 
POST CTUNTT M5-GO'lk det 
Peyger LC PUNT Te) =1 
29TT 30°68 
UO $166 T2156 
INGSSICTUNTT, 122 
20 3247 12106 
“LATC1)2¢ 
ISK TLUs 


1LOs27+2eIDAy 
IH] 81100145 
DO 1072 JeiLOe141,10 
ISKILLSISKILL SL 
COUNT ACTIVITIES wITHIN OUTCOME 
TFCMALPw aC J), EWe TBLANK AID, “aLPHaC USL) .FQ.IALANK) GOTO 1972 
LOUTSNOUTCOC UNIT. TSKILL) 
RAcCTCLOJT) sRacT( yOuT) +1 
RACT(6)B8RACT(6)44 
“COUNT 4ASSESMENT NEECED AND ASSESSMENT GIVEN 
IFCTASSESCIUNITeISKILL).E0.9) GOTO 3972 
JDAYSI WEEKO5<S5+I pay 
TFC MGRO \P,EG.1) GOTO 1209 
IFCANEES(L,TUNIT,ISKILL).NE.O) GOTO 113° 
IF CANEE)(MGROUP,JUNIT>ISKILL).NE.O) GOTO 1130 
ANEED(MGROUP,IUNIT»ISKILL) sUpay 
GOTO 1139 
1200 DO 1202 1,6 
IFC aANEEN(M,IUNIT,ISKILL).NE.O) GOTO 1139 
1202 CONTINUE 
ANEEDCL,IUNITe ISKILL)=U0AY 
1230 IFC CMALPHA( Jed) EQ. JCON(1),0R. 
1MALPHA( U1) .E9,JCON(2)) AND, ANEED(MGROUP, IUNIT, ISKILL) EQ, UDAY) 
2aGIVE(MGROUP,IUNIT,ISKILL)=UpAY 
C INDICaTE IF REVIEW NEEDED OR REVIEW GIVE’ 
KL=E<RNCMGROUPALTUNITs ISKILL) 
K2®<RG(MGROUPs IUNITs ISKILL) 
IF CMALPHACJ¢1).NEeJCON(2)) GOTO 1101 
IF (<1,E9.0) GOTO 1102 
IF(«1,E9,°1) GOTO 1072 
IF(€2eNE.0) GOTO 4092 
IFC <1*1,NE.UpAY) GOTO 1092 
Kae Day 
GOT 1092 
KizjDay 
GOTO 1092 
1F(<1,E9.0) GOTO 1105 
1F(<1,E9-"1) GOTG 1992 
GOTO 1104 
Kis=1 
IF(MGROUP,ES,1) GOTO 125¢ 
IFCKRNC is TUNITAISKILL).NE.O) SOTU 1393 
IFC <RNCMGROUPSIUNIT,ISKILL)«NE.9) GIT? 1093 
*KRNCMGROUP, TUN] Ts ISKILL) 2KL 
GOTN 1693 
1250 DO 1252 M81.6 
IFC ARNG“, TUNITAISKILL).NE.O) SOTO 17293 
1252 CONTI We 
ARNCLelLINIT, ISKILL) 2K1 
1093 <RG(MGROUP,IUNIT,ISKILL)=K2 
1072 CONTINUES 
C DECODE INITIAL INSTRUCTIONAL TIME 
D0 1568 y24.8 
IF (MALP4ACLGRIO*1).NE/ICONC1,4N)) SOTO 49863 
RM INSBICON( 2,5) 
GOT) 1949 
106¢ CONTINUES 
RMIVS#0 F 
C aCCUMULATE INITIAL INSTRUCTIONAL TIME ANDY DAYS FOR WEEK 
1069 3C 1079 yOuTs1,46 


- a.. 2196 TACT@RACT(6)4.5 & @ 


g0340 22Ue C 1F NO SKILLS OR ACTIVITIES ASSIGNED aDT INITIAL INSTRUCTIONAL TIME 
00940 2216 C TO 'OTHER*® COLUMN ‘ 
- QUS41 22é0 IF(1acT,EG,0) GOTO 1976 
90543 222s ASECKOMSROUP, LUNI T+ JOUT» 1) B2MINSOCRACT( JOUTI/RACTI6) )+ é 
90343 2246 1AWEEKCMGROUP, LUNIT, JOUT, 1) 
- 095844 2254 AWEEK(MGROUF ,IUNIT,JOUT,2)#RaCT(UOUT)/RACT( 4S) 
00544 222e 1 +aWEEK(CMGROUP,ITUNIT» OUT, 2) 
00545 22/8 1079 CONTINUE 
- 00947 22be¢ GOTO 4090 
00350 22% 1076 AWEEK(CMSROUP, TUNIT./ 5,1) =RMINS*AWEEK( MGRIUP eS TUNIT 2 502) 
90951 2356 AWEEKOMSROUP, TUN] T,6,1) SRMINS+AWEEK( MGROUPsIUNIT? 604) 
- 903520232" AWEEK(MGROUP, IUNIT,5,2)94 46 WEEK (GROUP, IUNIT) S92) 
00953 232s AWEEK(MGROUP, IUNIT,6,2)81+aWwEERK(MGRCIP,IUNIT, 6,2) 


90353 232" = =c_SECOND INSTRUCTION 
- 00883 238+ ¢ ASSIGN SECOND INSTRUCTION UNIT MUMAER 
90984 2328 4000 LGRIO2 = LGPID + 165 


09955 = asyze NPTsLGRID2 
- 00856 237e IF CVALPHACLGRID2).NE.IBLANK) GOTO 4°57 
09560 2386 IF(MALPHACLGRID2¢4).NE.;3LA4NK) GOTO 4500 
00962 235%. MMINe194 » (10AY-1)09 
- 00863 2450 MMAYOMMINGB 
00964 244¢ DO 4058 yemrin,Mmax 
00967 2440 IF (MalPwaly).NEsIBLANK) GOTO 4500 ‘ 
- 00971 2450 4056 CONTINUE 
0uS73 244s GOTO 3077 
00574 245, 4500 IF(JCURU,EG.0) GCTO 4501 
- 90376 248e JUNTT8UCURU 
00877 = 24 GOTD 4064 
90600 9248s 4501 NPTaNPT + 3 
A) - 00602 24¥e IFCNPT.67,192) GOTO 3077 
ui 90603 25: DO 4503 s8nPT.194,3 
09606 82516 UFC MalLPWa( 1) EQ@eTRLANK) GOTO 4503 
- 90610 2536 GOTO 48502 
00611 2530 4503 CONTINUE 
00613 25Re WRITE(6,9006) IRECS 
~ 006126 25.¢ GOTO 3077 
00617 «2520 4057 I®LGRID2 
00620 23.6 4502 JUNIT#O 
- 99621 2586 DO 4504 ya1,10 
00624 25¥e TEC MgLPual yl) EQ@syCON( UY)? YUN TeYU 
00626 26Ue 4504 CONTINUE 
~ 90630 2616 IFCJUNIT,EQG.0) GOTO 4501 
00632 2620 4064 JCURUSJUNIT 
00633 2626 4065 JWKINI( JUNIT) #82 
- 00634 2690 JALUNIC SUNT T) 82 
90634 267* C COUNT SECOND INSTRUCTION ExERCISES AND PRACTICE ExERCISES 
00635 26°, JSKILLS9 
00636 26fe DO 4067 171,46 
09641 268¢ PacTt(!l)s0 
0642 2698 4067 SécT(1)s0 
~ 90644 2756 JL081940( IDAy~1)09 
00645 2716 JHIeJL068 
00646 927 se DO 4972 J®ULOeJHI 
S eq 09652 2728 JSKILLEUSKILL + 4 
~ 90682 2740 IF CMalLPwaly) EQ@sIBLANK) GOTO 4072 
30654 2720 KOUT®MOUTCOC YSKILL) 
. 90655 8 8=27¥6 SACT(KOUT) BSaCT(KOUT) + 3 
00656 4 627/e SACT(6) eSaCT¢e) 1 


0687 270 GOTO 60720407244071040721 4073 4072540731 40725 4072) » SKILL 


00660 27¥0 4071 PACT(KOUT) sPACT(KOUT) +1 
jue61 28Ue PACT’ 6) BsPACT(6)44 
anee2  26i. 4072 CONTINUE 

00662 282 C¢ DECODE SECOND INSTRUCTIONAL. TINE 


00664 ?b-« DO 46066 ysi.8 e 
~ 90667 264» IF CY aL Poa (LGRIDZ*1) WNE-1C%C120)) GTTD 4068 

90671 2626 SMINSEICON(2,u) 

07672 = 2B e GOT? 4049 
oy 00673 28/0 4060 CONTINUE 

90675 285e SMINS&0 


0675 2626 C IF CRITERION EXERCISE GIVE ACCUMULATE TIME, Py Ex. TIMEs AND Pays 
os 00675 295° C INTO SECONT INSTRUCTION BLOCK, CTHERWISE 499 TIME TO OTHER OF 
99675) 2925 C OINITIAL INSTRUCTION BLOCK AND IF DAy NUT ALREAMY COUNTFL FOR THIS 
90675 29h6 C UNIT ADD DaY TO INITIAL INSTRUCTION BLOCK IN TRE SAME “ANNER 
~ 09676 2920 4069 DO 4670 KOUT#1,6 


00701 294s TF CINOCRIC JUNI TsMGROUP).NE.0) GOTO 4066 
50703 2956 JACTESACT(6)9.5 

= 00704 2908 IFC yACT,EG.5) GOTO 4976 
30706 29/4 AWEEK(MGROUP, JUIIT,KOUT,1)=S”INSe(SACT(KOUT)s/SACT(6)) + 
30706 2996 LAWEEKCMGROUP, JUYIT»KOUT, 1) 

os 00707 2998 IFC MPUNT.EQeYUNIT) GOTO 4070 
90711 306 AWEEK(CMGROUP, JUNIT,KOUT,2) 2SaCT(KOUT)/SACT(A) + 
OU711 30le LAWESK(MGROUP, JUNIT»KOUT,2) 

~ 60712 30¢ GOT) 4070 
007413 30a¢ 4066 JaCTsSacT(6)0.5 
00714 §=304e 1F( JAcT,EG.0) GOTO 4073 

FS gov716 302 AWEEK(CMGROUP, JUNIT,KOUT, 3) 8ShINS@(SACT(KOUTS/SACT(6))¢ 
00716 306, LAWEEK(MGROUP ,JUNIT,KOUT,3) 
00717 = 30/« AWEEKCMCROUP, JUNIT»KOUT, 5) 2S4ET(KOUT)/SACT(E) © 

‘s 30717 305s LAWEEK(CMGROUP, JU“!I1T,KOUT-5) 
00720 830% 4074 JACTBEPACT(6)0.5 
jo721 31Ue IF( yaCT,EG.C) GOTO 4070 

‘4 C?23) 34d. AWEEK (MGROUP, JUNIT,KOUT,4)SSMINSe(PaCT(KOUT)/SACT(6))* 

tS vo723 -31$8 LAWEEKOMGROUP,JUNIT»KOUT, 4) 
rep) 09724 3126 4070 CONTINUE 

a 00726 3146 GOT) 3077 
09727 312° 4076 AWEEK(MGROUP, JUNIT» 601 =SMINS#AWEEK( MGROUP» JUNIT+ 601) 
0939 Bive AWEEK(MGROUP, JUNIT,5,1) SS4INS*AWEEK( YGROUP,JUNIT, 5,1) 
09731 8 31/8 IF C<PUN] -EQ.JUNIT) GOTO 3077 

: auy33 0s Sa -* AWEEKOMGROUP, JUNIT»6,2)81 *AWEEK( MGROUP» JUNIT +652) 
30734 3196 AWEEKCMGROUP, JUNIT,5,2)31 + AWEEK(MGROUP, JUNIT, 5,2) 

4 09735 32Ue GOTG 3077 
OvI36 4=—- S240 4973 aWEEKCMGROUP, JUNIT»6,5)81 + gWEEK(CMCROUP, JUNIT» 4,5) 
09937) = B2Se AWEEK(MGROUP, JUNIT,6,3)=SMINS + AWeEK(MGROUP, JutitT, 6.3) 
go740 3256 3077 CONTINUE 

3 N0742 3240 GOTO 899 


39742 327% C aCCUMUL,TE wEEKS 
0743 3286 2Coc IUNYsO 
= 3744 3256 2001 IUNISIUNI*4 
JU745 = 3206 IFCIUNI,GY,10) GOTO 202N = 


30747 32ie IFC J*eKUNTCTUNE)0€@.0) GOTO 20901 
ia 30751 33ve 00 2006 KLI‘E#105 

30754 3316 DO 2006 KOUTs1,4 
2 39757 = Bee CO 2006 KGRPs1,5 

30762 3375 00 7096 ILEvsie5 

09768 354¢0 XWEEXCI INI,“QUT*KLINE- ILEV)= 

‘}0765 335 LXWEEKCT ONT» KOUTOKLINE? ILEV) *aWEEKOKS-2P, JUNI» KOUTSKLINE) 
~ 440768) 33 * 2/7 (NGRPS(KWEEK)e4,) 


00766 33/8 2006 CONTINUE 


Ge OO 2008 KLI“ES105 


76 
001 
2904 
91010 
gioit 
31012 
11015 
J1017 


j1021 


01022 
31023 
u1d24 
01025 
1026 
1030 
91032 
02033 
11036 
g1940 
01049 
92042 
u10464 
d1046 
02051 
01053 
91054 
01055 
31056 
01057 
01060 
01061 
01062 
)1065 


91966 


91071 
02071 
1073 
1073 
91075 
31075 
91077 
91077 
91101 


"32104 


31107 
01110 
jatit 
91112 
uit13 
31115 
31117 
i122 
01125 
31126 
32127 
1230 
92131 
01131 
91134 
1135 


33¥0 
Jace 
3ai. 
34cea 
Base 
345° 
3450 
3408 
34/5 
34l0 
34% 
35uUs 
35+0 
35ee 
3550 
3536 
355, 
35.64 
35/6 
355 
35¥e 
36Ue 
361° 
36ea 
36450 
3ol° 
3626 
3668 
36fe 
3690 
36,8 
37ye 
371¢ 
37 -« 
3750 
3740 
3721 
370, 
37 « 
3708 
3798 
36, 
361+ 
36<e 
3820 
3o4e 
382° 
3600 
38/, 
38% 
38% 
39c« 
3940 
39460 
3956 
3940 
3936 
3900 
39/e 
396 


c 


c 


2008 


2029 
2022 
2030 


2031 


2647 
26R6 


co 
2689 
2686 


2600 


2602 
2700 


2702 


DO 7906 KOUTe1,4 & 


DO 2008 KGRPEs1,6 
AWEEKCKGRP,TUNT ROUT, KLINE ) 26 

JAK INTCTUNT 90 

GOT. 2091 

CO ec22 ILEVs2,5 

IFCMOST*CILEV) 6 E eKOSTCOILEV) OP, IESE Ete 
CONT] UE 
GOTc 1C0_3 
IcCuVsz0 
JCURUEC 
TUN} =0 
TUNTSIUST +2 
IFCYUNI,GT.46) SOTO 2687 

TFC JALUNICTUNT)«6€0.9) GOTO 2050 

GOTC 26P9 

DO 2684 LWEEK#1,53 

NGROS(L4EEK) #0 

GOT* 1091 
UNT REVIEW NEEDED AND REVIEW GIVEN 

DO 26f6 ILEve1,5 

AVGCIUNT ILEV SAVGCIUNISILEV) 4166 

pO 7700 LWeeKs1,53 

iFCNGRPS(LWEEK).EQ.0) GOTO 2700 
JDAVHI=_LWEEKeS 

JOAYLCSDAyHI=4 

KOAVHIS DAYHI +1 

KDayLO= Davloe1 

IRN8S 

IRGsO 

1ANeO 

laGeQ 

DO 2600 KGRPe|i,6 

DO 2600 KSKILL21,15 

IF (<RNC€GRP, TUNI,KSKILL) «GE +UDAYLOV ANG 
_ <RNCKGRPS PUNT SKSKILL) ele eupAYRI) TRNZYR 
IF (<RG(KGRP, JUNI, KSKILL).GE.KDAYLO, ND, 

a <RG(KGRP,IUNI KSKILL),LE,KOAYRI) IRGEIR 
IFC ANEES(KGAP, TUK KSKILL) «GE «JDAYLO, AND, 
1 ANEEQC(KGRP*TUNI+KSKILL) .LEedpAYHI) [a 
TFC AGI VECKGRPs TUNT»KSKILL).GE.JDAyLO, ANS, 
2 AGIVE(KGRP,JUNI,KSKILL) .LE,UnAYS!) [a 

CONTINUE 

DO 2602 ILevsi,5 

RNCTUNT TILEY) SRNC TUNIS ILEV)*+(TRN@L.O)/(NGR 
RGCIUNT s TLEVIBSRGCIUNTo TL EV) *#CRE@L.O/(CGR 
ANCTUNT, TLEV) BANC TUNTs TILEY) + TAN@L.0)/(0GR 
AGCTUNI, ILEy) #AG(TUNI,ILEy)+( 1AGeq.r )/(NGR 
CONTINUE 

CONTI NUE 

CO 2702 KGROn1,45 

00 2792 KSKILL21,45 
KONCKGRO,TUNT se KSKILL) 20 

KRGCKGRO, IUNTsKSKILL)=0 

4GIVECKGRP, TUNTsKSKILL) 20 
ANEZOCKSRP, TUN KSKILL) £0 

CONTINUE 


OUTPUT ROUTINE 
MLEvsO 
DO 2888 ILEVsaLlLEev,5 


2050 


1 GATT 203C 


Ne1 

G+1 

NETANFL 
GelAG+L 
PS(LwFEK)e4.0) 
PS(LorEek) 01.0) 


PS(LWEEK) 01,0) 
PS(L,EEK 04,9) 


51140 = 3996 MLEVeMLE vey & & 


g2341 40ve YLEV36-"LEy . 
_ 2242 40Le TAV384V5 (TUN Te JLEV +5 
J1143 40fe TFC TAVG.EG,9) GCT9 2888 
31145 405° pO? 9075 yFie JLEV : ° 
- )1150 = 4048 9075 LOSTCCUISKDSTC(Y) 
11152 4056 IFCULEV.E2.5) GOTO 9193 
J1154 4002 NLEVEJLE V 42 
Z 01155 407" DC 2076 JEnLEeV,® 
11160 40ce 9976 LOSTC(UIS9 
11162 40%e 9OO7 FORMATCIMO UNIT "aT 2e1XoA4eixeSI2." 3 TeOne 1'r9n, "2", 
é 31162 41.° 1 9x,'3', 9x, "6"s6x0 "OTHER »6xe "TOTAL", 
J1162 411. 1 ' ME" Fb Dy 
31163 41.° 9193 D0 97146 LEDS 
~ 32166 9 4150 DO 9716 K7446 
J1171 ai‘ 9916 XWEEACT ive Ko Le JLEVEXWEEKCIUNT MeL as SLE IZONGOI NT ULEV) - 
j1174 413° ENCTUNT JLEV BANC TUNT + ULEVIZAVGCIUNT) JLEW) 
z 2175 0 410" AGCT NT, JLEV)FAGCIUNID JLEV)ZAyGCIUNT, JLEy) 
J1174 61/5 RNCTINT, JLE' ) FR (TUNE, JLEVY) ZAVGCTUNT,JLEV) 
11177 410° RAGCTUNT SLE) SRGC TUNIS JLEV) ZaVGCIUN!, JLEV) 
ne 12200 414° PaGeVBlTD eC aGC LUNI JLEVIZANC TUNIS ILEV)) 
F yi201 42Ue ; PRGINSLIOeO@(RGCTUNT s JLEVIZ26CTUNT..ILEV)) 
yi202 4240 DO 72347 K8116 
es 41205 420 RAVGLCIINT, 4a JLEV DEXWEEKCIUNT Kole SLE IZ 
31205 42 6 1 KXWEEKC TUN Te Ke 2,0L EV) 
)1206 4240 RAVGECT INT a ULEVIEXWEER CIT Ke SL EV)IS 
321206 42°60 1 XVEEKCIUNITs Ke Se ULE V) 
= )1207 4208 RAVGSCT NT eee ULEVIELO0.O@XnEEK( TUN] Ke Se JLEV)S 
01207 9424 4 Xw#EEKC TUN Ke3,JLEV) 
91219 425.6 9047 CONTINUE 
> 11212 4290 DO 7351 [SwALt6rbe2 
o1215 43.6 IFCYSWRL LEQ. G+ ANC se JLEV«NE.5) GOTO 2°54 | 
31217 431s AZITECTSWRL»9O07) TUNTs THOGSCULEV) » (LOST CCU) eUe1e5) 
“94217 0 430 1. AvGCL iNT, JLEV) 
Oe }1230 9432» wRITECT Sa Le G9008) Cx WEEK CIUNIT Keto JLe yp KE404) 
mF o) 11236 4340 990m FORMATCAX, HINITIAL IWVSTPUCTIONAL TIE *,$(F10.4)) 
11237 432> ARITECT SRL» FICS) OXWEEKC TEs Ke 20 UL °V) e€8104) : 
y1245 430 IOVS FORVATCIMS INITIAL INSTRUCTIONAL NAYS ",6(F19.4)) 
91246 43/0 APITECTSwWRL,GULC)CKXWEEKCIU GT Ke 3p ILE y) 2 KB1045) 
j1254 43b6e 901-2 FORwATCIKe *SECO'C TYWSTRUCTI MAL TIME ",46(F13.4)) 
31255 4340 ARITECTEmRLS PILI IO XS EEKC TUN Te Ke Se LEV) KEL EA) 
31263 44 0 9511 FORMATO YX, ORACTICE EXERCISE TIME ",6(F10.4)) 
31264 441 aPITIECIS SRL» 9917) Cx wEERK CTU wl, Ke Se dle y) eKB104) 
31272 442n 9T12 FSP+aT( IK, SECON PISTRUCTIDNAL LAY? ",0(F10,4)) 
)1273 44 de AAITECLSWRL FILS) ANCTUNT  JLEV) ¢aGCT Ie JLEV) PaGa® 
9130) 44,8 POLS CORMATCAKs ASSESSMENT NeEnento¢10.4)1%, "ASSESSMENT FIVE Nef Ile, 
091300 4450 1 2x0 '42"0F 9944) 
313 } 44aue ARITECTSWRL1G074) RNCIUST,JLEV)ZRGC TU Lp JLEV) pPOGRy 
4338 dale 9214 FORMaT(#§ REVIEW NEEDED 's 4X,F19,459 SEVIER GIVEN ",Fic 4, 
J1306 = 4 ae 1 2X, *42"9F9544) 
)1307 ave e<LTECTswRbe 5017) CRAVGLC Tun) <sJLEV) X81.5) 
91315 4550. 22 3291 KE1+5 
91329 4540 9CO9L BAVILCL Vie<,JLEVi=3 
31322 45% 9C17 FIRVATC Ke AVG CAILY INITIAL INSTR. T146's6(F19.4)) | 
11323 4556 aPITECTSWRL» 9014) CRAYG2C TINT, <,JLEy 2 <2176) 
12331 45%, DO 37292 K=1,6 , | 
j1334 452° PIG] WVGZCI INI <,dLEVI=9 
‘ 71336 4500 FILG CORVATCAXe**vG DAILY SECOND JVSTR, TLte * »6(F19.4)) | 
71337 45/0 aRITECTSwRLs 9019) CRAYGSCTUNI» <eJLEy) K2176) 
j1345 459, D0 9993 K81,6 


@ 2 
5 @... 4590 9O93-RAVS3CIINI»K,JLEV)=0 & & 


91352 46Ue 9019 FORMAT (4xe'% P, Ex, TIME TO SEC. INSTR, ",6(F16.4)) 


J23583 9461, WRITECISWRL,9015) 
- 91355 462e 9015 FORMaAT(/) 
02356 4600 2051 CONTINUE . 
31360 «© 46 T 2888 CONTINUE 
- 31362 4626 JAL INT CTUNT 80 
91363 460% 09 2890 y21.6 
91366 46/« INDSRICTUNT, J) 80 
- 41367 46Be 9 2890 [LeVeLeV,5 
01372 46% D9 2899 «34,5 
01375 47 © 2899 XWEEKC] INT, JeKe ILEV 20 
2 91401 4716 00 2399 ILEVaLeV,S 
31404 4765 QNCTINT,ILEV)=0 
31405 4726 RGCYUNI,ILEV) sO 
- 01406 47 0 ANCTUNT, [LEV)80 
91407 4756 AGCTUNI,ILEv) #0 
31410 470% 2899 AVGclUNT, ILEV)=2 
* 91412 47 « GOT) 2031 
J1413 4700 5002 «RITE(6,9004) IRECS 
51416 4796 END FILE 8 
- 31417 © 48Ue STQ> 3 
91420 481+ END 
> END OF UCC 1108 FORTRa™ V COMPILATION, C eT14G OSTIC® ~ESS4GE(S) 
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